home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / sound / wavetracer / doc / developer / sources / modincl.mod < prev    next >
Encoding:
Text File  |  1999-04-19  |  1.5 KB  |  47 lines
  1. {$if not def MODINCL_MOD}
  2.  
  3. { © by QXC & VWP! All Rights Reserved! Siehe "Programmierung.Guide" und
  4.   "Grammophon.eff.p" für ausführliche Copyright-Infos }
  5.  
  6. const COPYRIGHT='© by Oxygenic & VWP'
  7.  
  8. var MyPort,WTPort       :^MsgPort;
  9. var MyWTStdMsg          :^WTStdMsg;     { Notwendige Variablen }
  10.  
  11.  
  12. procedure MESSAGEHANDLE;
  13.  
  14. begin
  15.    MyWTStdMsg^.wt_Node:=Message(MyPort^.mp_Node,MyPort,sizeof(MyWTStdMsg));
  16.                                         { Message-Struktur korrekt ausfüllen }
  17.    PutMsg(WTPort,^MyWTStdMsg^.wt_Node); { Message and den Port WTPort senden }
  18.    repeat
  19.       MyWTStdMsg:=p_WTStdMsg(WaitPort(MyPort));
  20.       MyWTStdMsg:=p_WTStdMsg(GetMsg(MyPort));
  21.    until MyWTStdMsg<>NIL;               { Warten, bis eine korrekte Rückant-
  22.                                           wort vom WaveTracer kommt }
  23. end;
  24.  
  25.  
  26.  
  27. function CREATEPORTS(PName :str):boolean;
  28.  
  29. begin
  30.    CREATEPORTS:=false;
  31.    MyPort:=CreatePort(PName,0);         { Modul-Port anlegen }
  32.    if MyPort<>NIL then begin
  33.       MyWTStdMsg:=p_WTStdMsg(WaitPort(MyPort));
  34.       MyWTStdMsg:=p_WTStdMsg(GetMsg(MyPort));
  35.                                         { Auf Nachricht vom WaveTracer warten }
  36.       WTPort:=MyWTStdMsg^.wt_Node.mn_ReplyPort;
  37.                                         { Port feststellen, dem zu antworten
  38.                                           ist; es kann hier NICHT davon aus-
  39.                                           gegangen werden, das das immer der
  40.                                           WaveTracer-Port ist!! }
  41.    end else exit;
  42.    CREATEPORTS:=true;
  43. end;
  44.  
  45. {$endif}
  46.  
  47.